home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / REGULAR DEPOSITS II.bas < prev    next >
BASIC Source File  |  2012-02-16  |  901b  |  27 lines
  1. 10  PRINT "REGULAR DEPOSITS"
  2. 20  PRINT 
  3. 29  REM  - STATEMENTS 30 TO 100 REQUEST USER INPUT
  4. 30  PRINT "TOTAL VALUE AFFTER Y YEARS";
  5. 40  INPUT T
  6. 50  PRINT "NOMINAL INTEREST RATE";
  7. 60  INPUT I
  8. 70  PRINT "NUMBER OF DEPOSITS PER YEAR";
  9. 80  INPUT N
  10. 90  PRINT "NUMBER OF YEARS, MONTHS";
  11. 100  INPUT Y0,M
  12. 104  REM  - CALCULATE YEARS FROM YEARS AND MONTHS
  13. 105 Y = (12 *Y0 +M)/12
  14. 108  REM  - CALCULATE INTEREST RATE PER DEPOSIT;
  15. 109  REM  - CONVERT FROM PERCENT TO DECIMAL
  16. 110 I = I/N/100
  17. 119  REM  - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA
  18. 120 R = T *I/((I +1) ^(N *Y) -1)
  19. 129  REM  - ROUND OFF TO NEAREST CENT,PRINT
  20. 130  PRINT "REGULAR DEPOSITS = $"; INT(R *100 +.5)/100
  21. 139  REM  - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
  22. 140  PRINT 
  23. 149  REM  - RESTRT OR END PROGAM?  USER INPUT REQUIRED
  24. 150  PRINT "MORE DATA? (1=YES, 0=NO)";
  25. 160  INPUT X
  26. 170  IF X = 1  THEN 20
  27. 180  PRINT "<CTRL-D>RUN HELLO"